home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
scope
/
151-175
/
scopedisk168
/
asmmacros
/
am_02
/
close.i
< prev
next >
Wrap
Text File
|
1995-03-19
|
478b
|
21 lines
NOLIST
Close MACRO ; 13 Sept 88
*------------------------------; Start of Close macro.
; Put the file handle in D1.
NOLIST
IFEQ ReEntrant-1
LIST
MOVE.L \1(A5),D1
NOLIST
ENDC
IFNE ReEntrant-1
LIST
MOVE.L \1,D1
NOLIST
ENDC
LIST
CallLib Close,dos ; Call Close to remove the file.
*------------------------------; End of Close macro.
ENDM
LIST